home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Big Mouth 21
/
Big_Mouth_The_21_1998_-_Side_B.d64
/
christmas demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
898b
|
36 lines
10 rem
11 rem commodore 64 christmas album
12 rem
13 rem
14 rem music: wayne eastwood
15 rem screens/sprites: h. rex boucher
16 rem design/prog: stephen murri
17 rem
18 rem
19 rem
20 printchr$(8);
21 poke788,peek(788)+3
30 poke53280,6:poke53281,6:print"[147]"
31 print"note:":print""
32 print" for maximum effect, audio output"
34 print" must be connected to a high quality"
35 print" sound system."
36 print"enter option:":print""
37 print" r=run continuously"
38 print" s=run once, sit and wait for any key"
39 geti$:ifi$=""thengoto39
40 ifi$<>"s"thenifi$<>"r"then goto39
42 if i$="s"thenpoke40959,1:goto50
43 poke40959,0
50 print"[147]loading":print""
52 poke198,10
60 print"load"chr$(34)" christmasmusic"chr$(34)",8,1"
61 print"new"
62 print"load"chr$(34)" christmascode"chr$(34)",8,1"
63 print"new"
64 print"load"chr$(34)" christmasroot"chr$(34)",8"
65 poke198,10
66 data 19,13,13,13,13,13,82,85,78,13
67 fori=1to10:readx:poke630+i,x:next
68 poke56,13:new